home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 2 / The Apple Reference and Presentations Library (Disc 2)(January 1994).iso / Synergy Software / US English / KaleidaGraph™-PPC / Examples folder / Macro Source / Integral < prev    next >
Encoding:
Text File  |  1993-04-14  |  1.4 KB  |  233 lines  |  [TEXT/QKPT]
  1. alpha     "Integral:"
  2. ibase
  3. STOa 9
  4. ;
  5. FIX 0
  6. ;
  7. alpha     "X Column"
  8. STOa 0
  9. 0e+00
  10. STO 00
  11. ;
  12. alpha     "Y Column"
  13. STOa 1
  14. 1
  15. STO 01
  16. ;
  17. alpha     "Output Column"
  18. STOa 2
  19. 2
  20. STO 02
  21. ;
  22. alpha     "Initial Value"
  23. STOa 3
  24. 0e+00
  25. STO 03
  26. ;
  27. RCLa 9
  28. inpt 4
  29. ;
  30. RCL 00
  31. int
  32. STO 05
  33. ;
  34. RCL 01
  35. int
  36. STO 06
  37. ;
  38. RCL 02
  39. int
  40. STO 04
  41. ;
  42. RCL 03
  43. STO 02
  44. ;
  45. FIX 6
  46. ;
  47. RCL 02
  48. STO 00
  49. ;
  50. XEQ 10
  51. ;
  52. XEQ 80
  53. ;
  54. STOP
  55. ;
  56. LBL 10
  57. RCL 05
  58. 1000
  59.  /
  60. STO 10
  61. size
  62. 1
  63.  -
  64. RCL 10
  65.  +
  66. STO 11
  67. ;
  68. RCL 10
  69. int
  70. RCL 06
  71. 1000
  72.  /
  73.  +
  74. STO 40
  75. ;
  76. RCL 11
  77. int
  78. RCL 06
  79. 1000
  80.  /
  81.  +
  82. STO 41
  83. ;
  84. LBL 90
  85. RCLi 41
  86. test 1
  87. GTO 91
  88. test 2
  89. GTO 91
  90. RCLi 11
  91. test 1
  92. GTO 91
  93. test 2
  94. GTO 91
  95. ;
  96. LBL 92
  97. RCLi 40
  98. test 1
  99. GTO 93
  100. test 2
  101. GTO 93
  102. RCLi 10
  103. test 1
  104. GTO 93
  105. test 2
  106. GTO 93
  107. ;
  108. RTN
  109. ;
  110. LBL 91
  111. RCL 41
  112. 1
  113.  -
  114. STO 41
  115. RCL 11
  116. 1
  117.  -
  118. STO 11
  119. GTO 90
  120. ;
  121. LBL 93
  122. RCL 40
  123. 1
  124.  +
  125. STO 40
  126. RCL 10
  127. 1
  128.  +
  129. STO 10
  130. GTO 92
  131. ;
  132. LBL 80
  133. ;
  134. RCL 11
  135. RCL 10
  136.  -
  137. 1e-05
  138.  +
  139. int
  140. STO 01
  141. ;
  142. RCL 10
  143. STO 20
  144. int
  145. RCL 06
  146. 1000
  147.  /
  148.  +
  149. STO 40
  150. ;
  151. RCL 10
  152. int
  153. RCL 04
  154. 1000
  155.  /
  156.  +
  157. STO 19
  158. RCL 00
  159. STOi 19
  160. RCL 19
  161. 1
  162.  +
  163. STO 19
  164. ;
  165. RCL 20
  166. 1
  167.  +
  168. STO 22
  169. ;
  170. RCL 40
  171. 1
  172.  +
  173. STO 42
  174. ;
  175. 0e+00
  176. RCL 01
  177. x <= y
  178. GTO 81
  179. ;
  180. LBL 98
  181. RCLi 22
  182. RCLi 20
  183.  -
  184. RCLi 42
  185. test 1
  186. GTO 60
  187. test 2
  188. GTO 60
  189. RCLi 40
  190.  +
  191. 2
  192.  /
  193.  *
  194. ADD 00
  195. RCL 00
  196. STOi 19
  197. ;
  198. 1
  199. ADD 19
  200. ADD 22
  201. ADD 42
  202. RCL 22
  203. 1
  204.  -
  205. STO 20
  206. RCL 42
  207. 1
  208.  -
  209. STO 40
  210. GTO 62
  211. ;
  212. LBL 60
  213. CLRi 19
  214. 1
  215. ADD 19
  216. ADD 42
  217. ADD 22
  218. ;
  219. LBL 62
  220. 0e+00
  221. DSE 01
  222. GTO 98
  223. ;
  224. RTN
  225. ;
  226. LBL 81
  227. RTN
  228. ;
  229. alpha     "Version 1.1 - 5/12/89"
  230. alpha     "by Lonnie R. Abelbeck"
  231. alpha     "Modified - 4/14/93"
  232. alpha     "by W. T. Jones"
  233.